home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / MachOViewer / Source / RCS / MachOViewwraps.psw,v < prev    next >
Encoding:
Text File  |  1995-06-12  |  1.7 KB  |  119 lines
  1. head     1.4;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    ediger:1.4;
  6. comment  @@;
  7.  
  8.  
  9. 1.4
  10. date     94.05.10.22.41.50;  author ediger;  state Exp;
  11. branches ;
  12. next     1.3;
  13.  
  14. 1.3
  15. date     94.01.30.21.29.19;  author ediger;  state Exp;
  16. branches ;
  17. next     1.2;
  18.  
  19. 1.2
  20. date     94.01.30.16.29.31;  author ediger;  state Exp;
  21. branches ;
  22. next     1.1;
  23.  
  24. 1.1
  25. date     93.12.30.19.02.31;  author ediger;  state Exp;
  26. branches ;
  27. next     ;
  28.  
  29.  
  30. desc
  31. @Display PostScript wraps
  32. @
  33.  
  34.  
  35. 1.4
  36. log
  37. @drawing a zooming box
  38. @
  39. text
  40. @
  41. defineps drawLabel(float x1, y1; char *address; float x2, y2)
  42. %% $Id: MachOViewwraps.psw,v 1.3 94/01/30 21:29:19 ediger Exp Locker: ediger $
  43. %% font manipulation
  44.  
  45.     0.0 setgray
  46.     x1 y1 moveto
  47.     (address) show
  48.     2. 0. rmoveto
  49.     x2 y2 lineto
  50.  
  51. endps
  52.  
  53. defineps drawLeftArrowHead(float x1, y1, side)
  54.     %% draw an arrowhead pointing left at (x1, y1)
  55.     0.0 setgray
  56.     newpath
  57.     x1 y1 moveto
  58.     0.866 side mul
  59.     0.0 side 2.1 div sub rlineto
  60.     0.0 side rlineto
  61.     x1 y1 lineto
  62.     stroke
  63. endps
  64.  
  65. defineps drawBox(float x1, y1, x2, y2)
  66.     %% draw a box with (x1, y1) and (x2, y2) as diagonally opposed corners
  67.     0.0 setgray
  68.     0.10 setlinewidth
  69.     newpath
  70.     x1 y1 moveto
  71.     x1 y2 lineto
  72.     x2 y2 lineto
  73.     x2 y1 lineto
  74.     x1 y1 lineto
  75.     stroke
  76. endps
  77. @
  78.  
  79.  
  80. 1.3
  81. log
  82. @removed doFont ps def: using Font object instead
  83. @
  84. text
  85. @d3 1
  86. a3 1
  87. %% $Id: MachOViewwraps.psw,v 1.2 94/01/30 16:29:31 ediger Exp Locker: ediger $
  88. d6 1
  89. d16 1
  90. d22 13
  91. @
  92.  
  93.  
  94. 1.2
  95. log
  96. @added drawLeftArrowHead function def
  97. @
  98. text
  99. @a0 5
  100. defineps doFont(float points)
  101. %% $Id: MachOViewwraps.psw,v 1.1 93/12/30 19:02:31 ediger Exp Locker: ediger $
  102. %% font manipulation
  103.     /Courier findfont points scalefont setfont
  104. endps
  105. d3 2
  106. @
  107.  
  108.  
  109. 1.1
  110. log
  111. @Initial revision
  112. @
  113. text
  114. @a0 1
  115. %% $Id$
  116. d2 1
  117. d16 10
  118. @
  119.